XECQUERY8AcbQXEIFESSEL  0
BEGIN DECLARE SECTION
END DECLARE SECTION
DECLARE c3 CURSOR FOR s3
PREPARE s3 INTO :pda  from :qstring
OPEN c3 USING DESCRIPTOR :pda 
WHENEVER NOT FOUND GOTO eof
FETCH c3 USING DESCRIPTOR :pda 
CLOSE c3
qstring